home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / dir / dosxs.lha / DosXS24 / Install_DosXS < prev    next >
Text File  |  1997-03-12  |  6KB  |  213 lines
  1. ;*********************************************************************
  2. ;* FILE    : Install_DosXS
  3. ;* PROJECT : DosXS
  4. ;* FUNCTION: Installations-Skript fuer DosXS.
  5. ;*
  6. ;* $VER: Install_DosXS 2.4 [29.01.97]
  7. ;* © 1996 by Frank Dittmar.
  8. ;*--------------------------------------------------------------------
  9. ;* Autor (C)  : Frank Dittmar
  10. ;* Created    : 11.05.96
  11. ;* Last Change: 21.02.97, FD
  12. ;*********************************************************************
  13.  
  14. ;*- Sprache abfragen, derzeit nur deutsch moeglich: -*
  15.  
  16. ;(set selectlang (askchoice
  17. ;                   (prompt "")
  18. ;                   (help @askchoice-help)
  19. ;                   (choices "Deutsche Installation" "English Installation")
  20. ;                   (default 0)
  21. ;                 )
  22. ;)
  23. (set selectlang 0)
  24.  
  25. (if (= selectlang 0) (set @language "deutsch")  )
  26. (if (= selectlang 1) (set @language "english")  )
  27.  
  28. ;*- Meldungen in Abhaengigkeit der Sprache initialisieren: -*
  29.  
  30. (if (= @language "deutsch")
  31.   (
  32.     (set MSG_Intro   (cat "Willkommen zur DosXS 2.4-Installation\n\n"
  33.                           "Hinweis: Sie können DosXS auch ohne Installation\n"
  34.                           "ausprobieren. DosXS ist nicht zwingend auf Assigns\n"
  35.                           "o.ä. angewiesen. Wenn Sie DosXS nur testen wollen,\n"
  36.                           "könnnen Sie die Installation jetzt abbrechen."))
  37.     (set MSG_wrong_OS     "Sie benötigen mindestens OS V1.3 für DosXS !")
  38.     (set MSG_Installing   "Installiere jetzt DosXS.")
  39.     (set MSG_SelectPath   "Wo soll DosXS installiert werden ?\nEin Verzeichnis \"DosXS\" wird automatisch erzeugt.")
  40.     (set MSG_SelectComp   "Wählen Sie die zu installierenden Komponenten.\nAlle angewählten Komponenten werden im ausgewählten\nVerzeichnis installiert\n(nicht in FONTS:, LIBS:, ...).")
  41.     (set MSG_Comp_Main    "DosXS, DosXsPrefs, Libs             (310,7 KB)")
  42.     (set MSG_Comp_Guide   "Guide-Dokumentation, Online-Hilfe   ( 93,1 KB)")
  43.     (set MSG_Comp_Doks    "Text-Dokumentation, History         ( 98,3 KB)")
  44.     (set MSG_Comp_Icons   "Icons für AddIcon                   (  4,4 KB)")
  45.     (set MSG_Comp_Fonts   "DosXS-Zeichensatz                   (  5,7 KB)")
  46.     (set MSG_InstallDone  "DosXS wurde installiert.")
  47.     (set MSG_DosXS_Assign "Modifiziere jetzt S:User-Startup für Suchpfad ...")
  48.     (set MSG_Update       "Das Verzeichnis existiert bereits.\nSoll DosXS überinstalliert werden?")
  49.   )
  50. )
  51.  
  52. (if (= @language "english")
  53.   (
  54.     (set MSG_wrong_OS     "You need at least OS V1.3 to run DosXS !")
  55.     (set MSG_Installing   "Installing DosXS now.")
  56.     (set MSG_SelectPath   "Select path to install DosXS to.\nA Directory \"DosXS\" will be created.")
  57.     (set MSG_SelectComp   "Select the components, that should be installed.")
  58.     (set MSG_InstallDone  "DosXS has been installed.")
  59.     (set MSG_DosXS_Assign "Now modifying your S:User-Startup for a search path ...")
  60.   )
  61. )
  62.  
  63. ;*- Kick abfragen, Abbruch wenn zu alt: -*
  64.  
  65. (set OS_VER (/ (getversion) 65536) )
  66.  
  67. (if(< OS_VER 34)
  68.    (abort MSG_wrong_OS)
  69. )
  70.  
  71. (complete 0)
  72.  
  73. (message MSG_Intro)
  74.  
  75. ;*- Install-Ziel abfragen: -*
  76.  
  77. (set TargetDir
  78.    (askdir
  79.       (prompt MSG_SelectPath)
  80.       (help @askdir-help)
  81.       (newpath)
  82.       (default "SYS:")
  83. ;     (default "ram:")
  84.    )
  85. )
  86.  
  87. (set DestDir (tackon TargetDir "DosXS"))
  88. (set @default-dest DestDir)
  89.  
  90. (if (= (exists DestDir) 2)
  91.    (message MSG_Update)
  92. )
  93.  
  94. ;*- zu installierende Komponenten abfragen: -*
  95.  
  96. (set components
  97.    (askoptions
  98.       (choices MSG_Comp_Main MSG_Comp_Guide MSG_Comp_Doks MSG_Comp_Icons MSG_Comp_Fonts)
  99.       (prompt MSG_SelectComp)
  100.       (help @askoptions-help)
  101.       (default 31)
  102.    )
  103. )
  104.  
  105. (makedir DestDir (infos))
  106.  
  107. ;*- Komponente "Main" installieren: -*
  108.  
  109. (complete 10)
  110. (if (bitand components 1)
  111. (
  112.    (copyfiles (prompt MSG_Installing) (source ("libs")) (dest (tackon DestDir "libs"))(all))
  113.    (complete 30)
  114.    (copyfiles (source ("s"))    (dest (tackon DestDir "s"))(all))
  115.    (copyfiles (source "DosXS")           (dest DestDir))
  116.    (copyfiles (source "DosXS.info")      (dest DestDir))
  117.    (complete 40)
  118.    (copyfiles (source "DosXsPrefs")      (dest DestDir))
  119.    (copyfiles (source "DosXsPrefs.info") (dest DestDir))
  120.    (if (exists "DosXS.Key")
  121.       (copyfiles (source "DosXS.Key")(dest DestDir))
  122.    )
  123. )
  124. )
  125.  
  126. ;*- Komponente "Guide" installieren: -*
  127.  
  128. (complete 50)
  129. (if (bitand components 2)
  130. (
  131.    (copyfiles
  132.       (source ("guide"))
  133.       (dest   (tackon DestDir "guide"))
  134.       (all)
  135.    )
  136.    (copyfiles (source "guide.info") (dest DestDir))
  137. )
  138. )
  139.  
  140. ;*- Komponente "Doks" installieren: -*
  141.  
  142. (complete 60)
  143. (if (bitand components 4)
  144. (
  145.    (copyfiles
  146.       (source ("doks"))
  147.       (dest   (tackon DestDir "doks"))
  148.       (all)
  149.    )
  150.    (copyfiles (source "doks.info") (dest DestDir))
  151. )
  152. )
  153.  
  154. ;*- Komponente "Icons" installieren: -*
  155.  
  156. (complete 80)
  157. (if (bitand components 8)
  158. (
  159.    (copyfiles
  160.       (source ("icons"))
  161.       (dest   (tackon DestDir "icons"))
  162.       (all)
  163.    )
  164. )
  165. )
  166.  
  167. ;*- Komponente "Fonts" installieren: -*
  168.  
  169. (complete 90)
  170. (if (bitand components 16)
  171. (
  172.    (copyfiles
  173.       (source ("fonts"))
  174.       (dest   (tackon DestDir "fonts"))
  175.       (all)
  176.    )
  177. )
  178. )
  179.  
  180. ;*- Locales kopieren, gibts noch nicht: -*
  181. ;(complete 95)
  182. ;(copyfiles
  183. ;  (prompt MSG_InstallingCatalogs)
  184. ;  (help @copyfiles-help)
  185. ;  (source "locale/catalogs")
  186. ;  (set dosxscomdir
  187. ;              (askdir
  188. ;                     (prompt MSG_SelectCatalogPath)
  189. ;                     (help @askdir-help)
  190. ;                     (newpath)
  191. ;                     (default "SYS:locale/Catalogs")
  192. ;              )
  193. ;  )
  194. ;  (dest dosxscomdir)
  195. ;  (all)
  196. ;  (confirm)
  197. ;)
  198.  
  199. ;*- Assigns in UserStartup setzen, nicht mehr notwendig: -*
  200. ;
  201. ;(startup "DosXS"
  202. ;  (prompt MSG_DosXS_Assign)
  203. ;  (help @startup-help)
  204. ;  (command "Assign DOSXS: "DestDir"\n")
  205. ;  (command "Assign FONTS: "DestDir"/fonts ADD\n")
  206. ;)
  207.  
  208. (complete 100)
  209.  
  210. (exit MSG_InstallDone)
  211.  
  212. ;*--------------------------- End of File ---------------------------*
  213.